home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / cflow.arc / CFLOLIB.C80 next >
Text File  |  1985-07-22  |  768b  |  43 lines
  1.  
  2. /* a few library functions needed to compile flow.c with C/80 -
  3. **   if you use BDS these are probably in your standard library
  4. **   so do not include these in your compilation -
  5. **                                M.S.E.    
  6. */
  7.  
  8.  
  9.  
  10.  
  11. isdigit(c)
  12. char c;
  13. {
  14.     if (c >= '0' && c <= '9') return(1);
  15.     else return(0);
  16. }
  17.  
  18.  
  19.  
  20. /* test for alphabetic */
  21.  
  22. isalpha(c)
  23. char c;
  24. {
  25.     if (c >= 'a' && c <= 'z') return(1);
  26.     else if (c >= 'A' && c <= 'Z') return(1);
  27.     else return(0);
  28. }  
  29.  
  30.  
  31. /* simple string compare */
  32.  
  33. strcmp(s,t)
  34. char *s, *t;
  35. {
  36.  
  37.     while(*s) if (*s++ != *t++) return(1);
  38.     return(0);
  39. }
  40.  
  41.  
  42.  
  43.